home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / asmutil / disasm.zip / SPEEDUP.BAS < prev    next >
BASIC Source File  |  1988-06-03  |  387b  |  22 lines
  1. 10 FOR I = 1 TO 37
  2. 11   READ N
  3. 12   C = C + N
  4. 15   NEXT
  5. 16 READ N
  6. 17 IF N <> C THEN 40
  7. 20 RESTORE
  8. 21 OPEN "R",1,"SPEEDUP.COM",1
  9. 25 FIELD 1 , 1 AS N$
  10. 26   FOR I = 1 TO 37
  11. 30   READ N
  12. 31   LSET N$ = CHR$(N)
  13. 32   PUT 1
  14. 35   NEXT
  15. 36 CLOSE
  16. 37 PRINT "created"
  17. 38 END
  18. 40 PRINT "** error. Verify DATA"
  19. 41 END
  20. 45 DATA 186,18,0,184,30,37,205,33,139
  21. 50 DATA 250,190,26,1,185,
  22.